perm filename SFAI.FAI[P,LCS] blob sn#359776 filedate 1978-06-04 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE UNPAC
C00004 ENDMK
CāŠ—;
	TITLE UNPAC
	ENTRY UNPAC	;CALL UNPAC(I,J,K,L) I=IN 
UNPAC:	0
PLOT1:	MOVE 2,@(16)
	LSHC 2,-10
	ASH 3,-34
	MOVEM 3,@3(16)		;GET PEN CODE
	LSHC 2,-16
	ASH 3,-26
	MOVEM 3,@2(16)		;GET Y
	LSHC 2,-16
	ASH 3,-26
	MOVEM 3,@1(16)		;GET X
	JRA 16,4(16)
	END